object Femissor: TFemissor
  Left = 306
  Top = 262
  Width = 703
  Height = 359
  Caption = 'Emissor '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 6
    Top = 10
    Width = 33
    Height = 13
    Caption = 'C'#243'digo'
  end
  object Label2: TLabel
    Left = 80
    Top = 10
    Width = 63
    Height = 13
    Caption = 'Raz'#227'o Social'
  end
  object Label3: TLabel
    Left = 6
    Top = 60
    Width = 40
    Height = 13
    Caption = 'Fantasia'
  end
  object Label4: TLabel
    Left = 6
    Top = 110
    Width = 46
    Height = 13
    Caption = 'Endereco'
  end
  object Label5: TLabel
    Left = 600
    Top = 110
    Width = 37
    Height = 13
    Caption = 'N'#250'mero'
  end
  object Label6: TLabel
    Left = 6
    Top = 160
    Width = 27
    Height = 13
    Caption = 'Bairro'
  end
  object Label7: TLabel
    Left = 220
    Top = 160
    Width = 96
    Height = 13
    Caption = 'C'#243'digo do Municipio'
  end
  object Label8: TLabel
    Left = 350
    Top = 160
    Width = 91
    Height = 13
    Caption = 'Nome do Municipio'
  end
  object Label9: TLabel
    Left = 6
    Top = 260
    Width = 27
    Height = 13
    Caption = 'CNPJ'
  end
  object Label10: TLabel
    Left = 200
    Top = 260
    Width = 87
    Height = 13
    Caption = 'Inscri'#231#227'o Estadual'
  end
  object Label11: TLabel
    Left = 6
    Top = 210
    Width = 21
    Height = 13
    Caption = 'CEP'
  end
  object Label12: TLabel
    Left = 140
    Top = 210
    Width = 42
    Height = 13
    Caption = 'Telefone'
  end
  object Label13: TLabel
    Left = 480
    Top = 160
    Width = 14
    Height = 13
    Caption = 'UF'
  end
  object razao: TEdit
    Left = 80
    Top = 30
    Width = 601
    Height = 21
    CharCase = ecUpperCase
    MaxLength = 60
    TabOrder = 0
    Text = 'RAZAO'
  end
  object fantasia: TEdit
    Left = 6
    Top = 80
    Width = 677
    Height = 21
    CharCase = ecUpperCase
    MaxLength = 40
    TabOrder = 1
    Text = 'FANTASIA'
  end
  object endereco: TEdit
    Left = 6
    Top = 130
    Width = 579
    Height = 21
    CharCase = ecUpperCase
    MaxLength = 60
    TabOrder = 2
    Text = 'ENDERECO'
  end
  object bairro: TEdit
    Left = 6
    Top = 180
    Width = 205
    Height = 21
    CharCase = ecUpperCase
    MaxLength = 40
    TabOrder = 4
    Text = 'BAIRRO'
  end
  object municipio: TEdit
    Left = 350
    Top = 180
    Width = 121
    Height = 21
    TabOrder = 6
    Text = 'Brasilia'
  end
  object cep: TEdit
    Left = 6
    Top = 230
    Width = 121
    Height = 21
    MaxLength = 10
    TabOrder = 8
    Text = 'cep'
  end
  object telefone: TEdit
    Left = 140
    Top = 230
    Width = 121
    Height = 21
    MaxLength = 12
    TabOrder = 9
    Text = 'telefone'
  end
  object estadual: TEdit
    Left = 200
    Top = 280
    Width = 193
    Height = 21
    MaxLength = 20
    TabOrder = 11
    Text = 'estadual'
  end
  object cnpj: TEdit
    Left = 6
    Top = 280
    Width = 187
    Height = 21
    MaxLength = 18
    TabOrder = 10
    Text = 'cnpj'
  end
  object codigo: TCurrencyEdit
    Left = 6
    Top = 30
    Width = 69
    Height = 21
    TabStop = False
    DisplayFormat = '####'
    ReadOnly = True
    TabOrder = 14
  end
  object numero: TCurrencyEdit
    Left = 600
    Top = 130
    Width = 80
    Height = 21
    DisplayFormat = '####'
    MaxLength = 6
    TabOrder = 3
  end
  object codmunicipio: TCurrencyEdit
    Left = 220
    Top = 180
    Width = 121
    Height = 21
    DisplayFormat = '#######'
    TabOrder = 5
    Value = 5300108.000000000000000000
  end
  object ComboBox1: TComboBox
    Left = 480
    Top = 180
    Width = 200
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 7
    Text = 'DF - Distrito Federal'
    Items.Strings = (
      'DF - Distrito Federal'
      'SP - S'#227'o Paulo'
      'GO - Goi'#225's'
      'MG - Minas Gerais'
      'CE - Cear'#225
      'BA - Bahia'
      'PA - Para'
      'AM - Amazonas'
      '')
  end
  object Button1: TButton
    Left = 531
    Top = 286
    Width = 75
    Height = 25
    Caption = '&Gravar'
    TabOrder = 12
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 606
    Top = 286
    Width = 75
    Height = 25
    Caption = '&Cancelar'
    TabOrder = 13
    OnClick = Button2Click
  end
  object ATUALIZA: TIBCQuery
    Connection = IBCConnection1
    SQL.Strings = (
      'select * from cliente where codigo = 1')
    Left = 288
    Top = 48
    object ATUALIZACODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
    object ATUALIZARAZAOSOCIAL: TStringField
      FieldName = 'RAZAOSOCIAL'
      Size = 60
    end
    object ATUALIZAFANTASIA: TStringField
      FieldName = 'FANTASIA'
      Size = 40
    end
    object ATUALIZAENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 60
    end
    object ATUALIZANUMERO: TIntegerField
      FieldName = 'NUMERO'
    end
    object ATUALIZABAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 40
    end
    object ATUALIZACODMUNICIPIO: TIntegerField
      FieldName = 'CODMUNICIPIO'
    end
    object ATUALIZANOMEMUNICIPIO: TStringField
      FieldName = 'NOMEMUNICIPIO'
      Size = 40
    end
    object ATUALIZAUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object ATUALIZACEP: TStringField
      FieldName = 'CEP'
      Size = 10
    end
    object ATUALIZATELEFONE: TStringField
      FieldName = 'TELEFONE'
      Size = 12
    end
    object ATUALIZAESTADUAL: TStringField
      FieldName = 'ESTADUAL'
    end
    object ATUALIZACNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
  end
  object IBCConnection1: TIBCConnection
    Database = 'c:\brasfort\brasfort.fdb'
    Options.Charset = 'win1252'
    ClientLibrary = 'C:\brasfort\fbclient.dll'
    Username = 'sysdba'
    Password = 'masterkey'
    Server = 'localhost'
    Connected = True
    Left = 256
    Top = 48
  end
end
